home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / examples / xlib / map-all < prev    next >
Encoding:
Text File  |  1992-07-20  |  354 b   |  19 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; Map all windows.
  4.  
  5. (require 'xlib)
  6.  
  7. (define (foreach-window root fun)
  8.   (let ((l (vector->list (car (query-tree root)))))
  9.     (for-each
  10.       (lambda (w)
  11.     (fun w)
  12.     (foreach-window w fun))
  13.       l)))
  14.  
  15. (let ((dpy (open-display)))
  16.   (unwind-protect
  17.     (foreach-window (display-root-window dpy) map-window)
  18.     (close-display dpy)))
  19.